codedir<-getwd()
setwd('..')
homedir<-getwd()
###
datadir<-file.path(
  homedir,
  "data"
)
filesdir<-file.path(
  homedir,
  "files"
)
outputdir<-file.path(
  homedir,
  "output"
)
metadir<-file.path(
  homedir,
  "meta"
)
pcodedir<-file.path(
  codedir,
  "01_publicopinion"
)
vcodedir<-file.path(
  codedir,
  "02_voting"
)
dcodedir<-file.path(
  codedir,
  "03_dind"
)
setwd(homedir)
# #also set the gsdir
# #this is the location of your 
# #ghostscript executable
# #I have written it here so it is 
# #flexible wrt the version #, 
# #but that is not necessary
# gsdir<-file.path(
#   "c:",
#   "Program Files",
#   "gs"
# )
# gsdir_full<-file.path(
#   gsdir,
#   dir(gsdir), 
#   "bin",
#   "gswin64c.exe"
# )
setwd(codedir)